Triangoli di Sierpinski

Edit 0 2 …
Sierpinski.400.20.jpg

per triangolosierp :dim :min
se :dim < :min [stop]
ripeti 3 [a :dim d 120 triangolosierp :dim/2 :min]
fine

tarta.apparecchia
sfondonero spessore 1 rosso1
cominciaxy -200 -200
asdir 30
spessore 2
triangolosierp 400 20
nastarta
tarta.primo.piano
sfondo.conserva.come "Sierpinski.400.20